home *** CD-ROM | disk | FTP | other *** search
/ Red Eye Press Kit / Red Eye Press Kit.iso / pc / main.dxr / SCRIPTS_55_thumbnail (Previews).ls < prev    next >
Encoding:
Text File  |  2005-07-18  |  534 b   |  20 lines
  1. property xLib, previewImage
  2.  
  3. on getPropertyDescriptionList
  4.   rangeList = []
  5.   xLib = "PREVIEWS"
  6.   repeat with x = 1 to the number of castMembers of castLib xLib
  7.     if member(x, xLib).type = #bitmap then
  8.       rangeList.add(member(x, xLib).name)
  9.     end if
  10.   end repeat
  11.   description = [:]
  12.   addProp(description, #previewImage, [#default: EMPTY, #format: #string, #comment: "rollover image:", #range: rangeList])
  13.   return description
  14. end
  15.  
  16. on mouseUp me
  17.   sendAllSprites(#updatePreview, previewImage)
  18.   sendAllSprites(#updateSave)
  19. end
  20.